home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / PInterfaces / TextUtils.p < prev    next >
Encoding:
Text File  |  1995-07-06  |  17.5 KB  |  516 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        TextUtils.p
  3.  
  4.      Contains:    Text Utilities Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs@applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. }
  19.  
  20. {$IFC UNDEFINED UsingIncludes}
  21. {$SETC UsingIncludes := 0}
  22. {$ENDC}
  23.  
  24. {$IFC NOT UsingIncludes}
  25.  UNIT TextUtils;
  26.  INTERFACE
  27. {$ENDC}
  28.  
  29. {$IFC UNDEFINED __TEXTUTILS__}
  30. {$SETC __TEXTUTILS__ := 1}
  31.  
  32. {$I+}
  33. {$SETC TextUtilsIncludes := UsingIncludes}
  34. {$SETC UsingIncludes := 1}
  35.  
  36.  
  37. {$IFC UNDEFINED __TYPES__}
  38. {$I Types.p}
  39. {$ENDC}
  40. {    ConditionalMacros.p                                            }
  41.  
  42. {$IFC UNDEFINED __SCRIPT__}
  43. {$I Script.p}
  44. {$ENDC}
  45. {    Quickdraw.p                                                    }
  46. {        MixedMode.p                                                }
  47. {        QuickdrawText.p                                            }
  48. {    IntlResources.p                                                }
  49. {    Events.p                                                    }
  50. {        OSUtils.p                                                }
  51. {            Memory.p                                            }
  52.  
  53. {$IFC UNDEFINED __OSUTILS__}
  54. {$I OSUtils.p}
  55. {$ENDC}
  56.  
  57. {$PUSH}
  58. {$ALIGN MAC68K}
  59. {$LibExport+}
  60. {
  61.  
  62.     Here are the current routine names and the translations to the older forms.
  63.     Please use the newer forms in all new code and migrate the older names out of existing
  64.     code as maintainance permits.
  65.     
  66.     New Name                    Old Name(s)
  67.     
  68.     CompareString                IUCompPString IUMagString IUMagPString IUCompString 
  69.     CompareText
  70.     DateString                    IUDatePString IUDateString 
  71.     EqualString                            
  72.     ExtendedToString            FormatX2Str
  73.     FindScriptRun
  74.     FindWordBreaks                NFindWord FindWord
  75.     FormatRecToString            Format2Str
  76.     GetIndString            
  77.     GetString
  78.     IdenticalString                IUMagIDString IUMagIDPString IUEqualString IUEqualPString
  79.     IdenticalText
  80.     InitDateCache
  81.     LanguageOrder                IULangOrder
  82.     LongDateString                IULDateString
  83.     LongTimeString                IULTimeString
  84.     LowercaseText                LwrText LowerText
  85.     Munger
  86.     NewString                
  87.     NumToString                
  88.     RelString                
  89.     ReplaceText
  90.     ScriptOrder                    IUScriptOrder
  91.     SetString                
  92.     StringOrder                    IUStringOrder
  93.     StringToDate                String2Date
  94.     StringToExtended            FormatStr2X
  95.     StringToFormatRec            Str2Format
  96.     StringToNum                
  97.     StringToTime                                
  98.     StripDiacritics                StripText
  99.     StyledLineBreak
  100.     TextOrder
  101.     TimeString                    IUTimeString IUTimePString
  102.     TruncString
  103.     TruncText
  104.     UpperString                    UprString
  105.     UppercaseStripDiacritics    StripUpperText
  106.     UppercaseText                UprText UprText
  107. }
  108. { New constants for System 7.0: }
  109.  
  110. CONST
  111. { Constants for truncWhere argument in TruncString and TruncText }
  112.     truncEnd                    = 0;                            { Truncate at end }
  113.     truncMiddle                    = $4000;                        { Truncate in middle }
  114.     smTruncEnd                    = 0;                            { Truncate at end - obsolete }
  115.     smTruncMiddle                = $4000;                        { Truncate in middle - obsolete }
  116. { Constants for TruncString and TruncText results }
  117.     notTruncated                = 0;                            { No truncation was necessary }
  118.     truncated                    = 1;                            { Truncation performed }
  119.     truncErr                    = -1;                            { General error }
  120.     smNotTruncated                = 0;                            { No truncation was necessary - obsolete }
  121.     smTruncated                    = 1;                            { Truncation performed    - obsolete }
  122.     smTruncErr                    = -1;                            { General error - obsolete }
  123.  
  124.     fVNumber                    = 0;                            { first version of NumFormatString }
  125. { Special language code values for Language Order }
  126.     systemCurLang                = -2;                            { current (itlbLang) lang for system script }
  127.     systemDefLang                = -3;                            { default (table) lang for system script }
  128.     currentCurLang                = -4;                            { current (itlbLang) lang for current script }
  129.     currentDefLang                = -5;                            { default lang for current script }
  130.     scriptCurLang                = -6;                            { current (itlbLang) lang for specified script }
  131.     scriptDefLang                = -7;                            { default language for a specified script }
  132.  
  133.     iuSystemCurLang                = -2;                            { <obsolete> current (itlbLang) lang for system script }
  134.     iuSystemDefLang                = -3;                            { <obsolete> default (table) lang for system script }
  135.     iuCurrentCurLang            = -4;                            { <obsolete> current (itlbLang) lang for current script }
  136.     iuCurrentDefLang            = -5;                            { <obsolete> default lang for current script }
  137.     iuScriptCurLang                = -6;                            { <obsolete> current (itlbLang) lang for specified script }
  138.  
  139. { <obsolete> default language for a specified script }
  140.     iuScriptDefLang                = -7;
  141.  
  142.     
  143. TYPE
  144.     StyledLineBreakCode = SInt8;
  145.  
  146.  
  147. CONST
  148.     smBreakWord                    = 0;
  149.     smBreakChar                    = 1;
  150.     smBreakOverflow                = 2;
  151.  
  152.     
  153. TYPE
  154.     FormatClass = SInt8;
  155.  
  156.  
  157. CONST
  158.     fPositive                    = 0;
  159.     fNegative                    = 1;
  160.     fZero                        = 2;
  161.  
  162.     
  163. TYPE
  164.     FormatResultType = SInt8;
  165.  
  166.  
  167. CONST
  168.     fFormatOK                    = 0;
  169.     fBestGuess                    = 1;
  170.     fOutOfSynch                    = 2;
  171.     fSpuriousChars                = 3;
  172.     fMissingDelimiter            = 4;
  173.     fExtraDecimal                = 5;
  174.     fMissingLiteral                = 6;
  175.     fExtraExp                    = 7;
  176.     fFormatOverflow                = 8;
  177.     fFormStrIsNAN                = 9;
  178.     fBadPartsTable                = 10;
  179.     fExtraPercent                = 11;
  180.     fExtraSeparator                = 12;
  181.     fEmptyFormatString            = 13;
  182.  
  183.  
  184. TYPE
  185.     NumFormatString = PACKED RECORD
  186.         fLength:                UInt8;
  187.         fVersion:                UInt8;
  188.         data:                    PACKED ARRAY [0..253] OF CHAR;            { private data }
  189.     END;
  190.  
  191.     NumFormatStringRec = NumFormatString;
  192.  
  193.     FVector = RECORD
  194.         start:                    INTEGER;
  195.         length:                    INTEGER;
  196.     END;
  197.  
  198. { index by [fPositive..fZero] }
  199.     TripleInt = ARRAY [0..2] OF FVector;
  200.  
  201.     ScriptRunStatus = RECORD
  202.         script:                    SInt8;
  203.         runVariant:                SInt8;
  204.     END;
  205.  
  206. { New types for System 7.0: }
  207. { Type for truncWhere parameter in new TruncString, TruncText }
  208.     TruncCode = INTEGER;
  209.  
  210.  
  211. CONST
  212.     shortDate                    = 0;
  213.     longDate                    = 1;
  214.     abbrevDate                    = 2;
  215.  
  216.     
  217. TYPE
  218.     DateForm = SInt8;
  219.  
  220.  
  221. CONST
  222. { StringToDate status values }
  223.     fatalDateTime                = $8000;                        { StringToDate and String2Time mask to a fatal error }
  224.     longDateFound                = 1;                            { StringToDate mask to long date found }
  225.     leftOverChars                = 2;                            { StringToDate & Time mask to warn of left over characters }
  226.     sepNotIntlSep                = 4;                            { StringToDate & Time mask to warn of non-standard separators }
  227.     fieldOrderNotIntl            = 8;                            { StringToDate & Time mask to warn of non-standard field order }
  228.     extraneousStrings            = 16;                            { StringToDate & Time mask to warn of unparsable strings in text }
  229.     tooManySeps                    = 32;                            { StringToDate & Time mask to warn of too many separators }
  230.     sepNotConsistent            = 64;                            { StringToDate & Time mask to warn of inconsistent separators }
  231.     tokenErr                    = $8100;                        { StringToDate & Time mask for 'tokenizer err encountered' }
  232.     cantReadUtilities            = $8200;
  233.     dateTimeNotFound            = $8400;
  234.     dateTimeInvalid                = $8800;
  235.  
  236.     
  237. TYPE
  238.     StringToDateStatus = INTEGER;
  239.  
  240.     String2DateStatus = INTEGER;
  241.  
  242.     DateCacheRecord = PACKED RECORD
  243.         hidden:                    ARRAY [0..255] OF INTEGER;                { only for temporary use }
  244.     END;
  245.  
  246.     DateCachePtr = ^DateCacheRecord;
  247.  
  248.     BreakTable = RECORD
  249.         charTypes:                PACKED ARRAY [0..255] OF CHAR;
  250.         tripleLength:            INTEGER;
  251.         triples:                ARRAY [0..0] OF INTEGER;
  252.     END;
  253.  
  254.     BreakTablePtr = ^BreakTable;
  255.  
  256. { New NBreakTable for System 7.0: }
  257.     NBreakTable = RECORD
  258.         flags1:                    SInt8;
  259.         flags2:                    SInt8;
  260.         version:                INTEGER;
  261.         classTableOff:            INTEGER;
  262.         auxCTableOff:            INTEGER;
  263.         backwdTableOff:            INTEGER;
  264.         forwdTableOff:            INTEGER;
  265.         doBackup:                INTEGER;
  266.         length:                    INTEGER;                                { length of NBreakTable }
  267.         charTypes:                PACKED ARRAY [0..255] OF CHAR;
  268.         tables:                    ARRAY [0..0] OF INTEGER;
  269.     END;
  270.  
  271.     NBreakTablePtr = ^NBreakTable;
  272.  
  273.  
  274. FUNCTION InitDateCache(theCache: DateCachePtr): OSErr;
  275.     {$IFC NOT GENERATINGCFM}
  276.     INLINE $2F3C, $8204, $FFF8, $A8B5;
  277.     {$ENDC}
  278. FUNCTION Munger(h: Handle; offset: LONGINT; ptr1: UNIV Ptr; len1: LONGINT; ptr2: UNIV Ptr; len2: LONGINT): LONGINT;
  279.     {$IFC NOT GENERATINGCFM}
  280.     INLINE $A9E0;
  281.     {$ENDC}
  282. FUNCTION NewString(theString: ConstStr255Param): StringHandle;
  283.     {$IFC NOT GENERATINGCFM}
  284.     INLINE $A906;
  285.     {$ENDC}
  286. PROCEDURE SetString(theString: StringHandle; strNew: ConstStr255Param);
  287.     {$IFC NOT GENERATINGCFM}
  288.     INLINE $A907;
  289.     {$ENDC}
  290. FUNCTION GetString(stringID: INTEGER): StringHandle;
  291.     {$IFC NOT GENERATINGCFM}
  292.     INLINE $A9BA;
  293.     {$ENDC}
  294. PROCEDURE GetIndString(VAR theString: Str255; strListID: INTEGER; index: INTEGER);
  295. FUNCTION ScriptOrder(script1: ScriptCode; script2: ScriptCode): INTEGER;
  296.     {$IFC NOT GENERATINGCFM}
  297.     INLINE $3F3C, $001E, $A9ED;
  298.     {$ENDC}
  299. FUNCTION StyledLineBreak(textPtr: Ptr; textLen: LONGINT; textStart: LONGINT; textEnd: LONGINT; flags: LONGINT; VAR textWidth: Fixed; VAR textOffset: LONGINT): StyledLineBreakCode;
  300.     {$IFC NOT GENERATINGCFM}
  301.     INLINE $2F3C, $821C, $FFFE, $A8B5;
  302.     {$ENDC}
  303. FUNCTION TruncString(width: INTEGER; VAR theString: Str255; truncWhere: TruncCode): INTEGER;
  304.     {$IFC NOT GENERATINGCFM}
  305.     INLINE $2F3C, $8208, $FFE0, $A8B5;
  306.     {$ENDC}
  307. FUNCTION TruncText(width: INTEGER; textPtr: Ptr; VAR length: INTEGER; truncWhere: TruncCode): INTEGER;
  308.     {$IFC NOT GENERATINGCFM}
  309.     INLINE $2F3C, $820C, $FFDE, $A8B5;
  310.     {$ENDC}
  311. FUNCTION ReplaceText(baseText: Handle; substitutionText: Handle; VAR key: Str15): INTEGER;
  312.     {$IFC NOT GENERATINGCFM}
  313.     INLINE $2F3C, $820C, $FFDC, $A8B5;
  314.     {$ENDC}
  315. PROCEDURE FindWordBreaks(textPtr: Ptr; textLength: INTEGER; offset: INTEGER; leadingEdge: BOOLEAN; breaks: BreakTablePtr; VAR offsets: OffsetTable; script: ScriptCode);
  316.     {$IFC NOT GENERATINGCFM}
  317.     INLINE $2F3C, $C012, $001A, $A8B5;
  318.     {$ENDC}
  319. PROCEDURE LowercaseText(textPtr: Ptr; len: INTEGER; script: ScriptCode);
  320.     {$IFC NOT GENERATINGCFM}
  321.     INLINE $3F3C, $0000, $2F3C, $800A, $FFB6, $A8B5;
  322.     {$ENDC}
  323. PROCEDURE UppercaseText(textPtr: Ptr; len: INTEGER; script: ScriptCode);
  324.     {$IFC NOT GENERATINGCFM}
  325.     INLINE $3F3C, $0400, $2F3C, $800A, $FFB6, $A8B5;
  326.     {$ENDC}
  327. PROCEDURE StripDiacritics(textPtr: Ptr; len: INTEGER; script: ScriptCode);
  328.     {$IFC NOT GENERATINGCFM}
  329.     INLINE $3F3C, $0200, $2F3C, $800A, $FFB6, $A8B5;
  330.     {$ENDC}
  331. PROCEDURE UppercaseStripDiacritics(textPtr: Ptr; len: INTEGER; script: ScriptCode);
  332.     {$IFC NOT GENERATINGCFM}
  333.     INLINE $3F3C, $0600, $2F3C, $800A, $FFB6, $A8B5;
  334.     {$ENDC}
  335. FUNCTION FindScriptRun(textPtr: Ptr; textLen: LONGINT; VAR lenUsed: LONGINT): ScriptRunStatus;
  336.     {$IFC NOT GENERATINGCFM}
  337.     INLINE $2F3C, $820C, $0026, $A8B5;
  338.     {$ENDC}
  339. FUNCTION EqualString(str1: ConstStr255Param; str2: ConstStr255Param; caseSensitive: BOOLEAN; diacSensitive: BOOLEAN): BOOLEAN;
  340. PROCEDURE UpperString(VAR theString: Str255; diacSensitive: BOOLEAN);
  341. PROCEDURE StringToNum(theString: ConstStr255Param; VAR theNum: LONGINT);
  342. PROCEDURE NumToString(theNum: LONGINT; VAR theString: Str255);
  343. FUNCTION RelString(str1: ConstStr255Param; str2: ConstStr255Param; caseSensitive: BOOLEAN; diacSensitive: BOOLEAN): INTEGER;
  344. FUNCTION StringToDate(textPtr: Ptr; textLen: LONGINT; theCache: DateCachePtr; VAR lengthUsed: LONGINT; VAR dateTime: LongDateRec): StringToDateStatus;
  345.     {$IFC NOT GENERATINGCFM}
  346.     INLINE $2F3C, $8214, $FFF6, $A8B5;
  347.     {$ENDC}
  348. FUNCTION StringToTime(textPtr: Ptr; textLen: LONGINT; theCache: DateCachePtr; VAR lengthUsed: LONGINT; VAR dateTime: LongDateRec): StringToDateStatus;
  349.     {$IFC NOT GENERATINGCFM}
  350.     INLINE $2F3C, $8214, $FFF4, $A8B5;
  351.     {$ENDC}
  352. FUNCTION ExtendedToString(VAR x: extended80; {CONST}VAR myCanonical: NumFormatString; {CONST}VAR partsTable: NumberParts; VAR outString: Str255): FormatStatus;
  353.     {$IFC NOT GENERATINGCFM}
  354.     INLINE $2F3C, $8210, $FFE8, $A8B5;
  355.     {$ENDC}
  356. FUNCTION StringToExtended(source: ConstStr255Param; {CONST}VAR myCanonical: NumFormatString; {CONST}VAR partsTable: NumberParts; VAR x: extended80): FormatStatus;
  357.     {$IFC NOT GENERATINGCFM}
  358.     INLINE $2F3C, $8210, $FFE6, $A8B5;
  359.     {$ENDC}
  360. FUNCTION StringToFormatRec(inString: ConstStr255Param; {CONST}VAR partsTable: NumberParts; VAR outString: NumFormatString): FormatStatus;
  361.     {$IFC NOT GENERATINGCFM}
  362.     INLINE $2F3C, $820C, $FFEC, $A8B5;
  363.     {$ENDC}
  364. FUNCTION FormatRecToString({CONST}VAR myCanonical: NumFormatString; {CONST}VAR partsTable: NumberParts; VAR outString: Str255; VAR positions: TripleInt): FormatStatus;
  365.     {$IFC NOT GENERATINGCFM}
  366.     INLINE $2F3C, $8210, $FFEA, $A8B5;
  367.     {$ENDC}
  368. {
  369.     The following functions are old names, but are required for PowerPC builds
  370.     becuase InterfaceLib exports these names, instead of the new ones.
  371. }
  372. FUNCTION IUMagString(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER): INTEGER;
  373.     {$IFC NOT GENERATINGCFM}
  374.     INLINE $3F3C, $000A, $A9ED;
  375.     {$ENDC}
  376. FUNCTION IUMagIDString(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER): INTEGER;
  377.     {$IFC NOT GENERATINGCFM}
  378.     INLINE $3F3C, $000C, $A9ED;
  379.     {$ENDC}
  380. FUNCTION IUMagPString(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER; itl2Handle: Handle): INTEGER;
  381.     {$IFC NOT GENERATINGCFM}
  382.     INLINE $3F3C, $001A, $A9ED;
  383.     {$ENDC}
  384. FUNCTION IUMagIDPString(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER; itl2Handle: Handle): INTEGER;
  385.     {$IFC NOT GENERATINGCFM}
  386.     INLINE $3F3C, $001C, $A9ED;
  387.     {$ENDC}
  388. PROCEDURE IUDateString(dateTime: LONGINT; longFlag: ByteParameter; VAR result: Str255);
  389.     {$IFC NOT GENERATINGCFM}
  390.     INLINE $4267, $A9ED;
  391.     {$ENDC}
  392. PROCEDURE IUTimeString(dateTime: LONGINT; wantSeconds: BOOLEAN; VAR result: Str255);
  393.     {$IFC NOT GENERATINGCFM}
  394.     INLINE $3F3C, $0002, $A9ED;
  395.     {$ENDC}
  396. PROCEDURE IUDatePString(dateTime: LONGINT; longFlag: ByteParameter; VAR result: Str255; intlHandle: Handle);
  397.     {$IFC NOT GENERATINGCFM}
  398.     INLINE $3F3C, $000E, $A9ED;
  399.     {$ENDC}
  400. PROCEDURE IUTimePString(dateTime: LONGINT; wantSeconds: BOOLEAN; VAR result: Str255; intlHandle: Handle);
  401.     {$IFC NOT GENERATINGCFM}
  402.     INLINE $3F3C, $0010, $A9ED;
  403.     {$ENDC}
  404. PROCEDURE IULDateString(VAR dateTime: LongDateTime; longFlag: ByteParameter; VAR result: Str255; intlHandle: Handle);
  405.     {$IFC NOT GENERATINGCFM}
  406.     INLINE $3F3C, $0014, $A9ED;
  407.     {$ENDC}
  408. PROCEDURE IULTimeString(VAR dateTime: LongDateTime; wantSeconds: BOOLEAN; VAR result: Str255; intlHandle: Handle);
  409.     {$IFC NOT GENERATINGCFM}
  410.     INLINE $3F3C, $0016, $A9ED;
  411.     {$ENDC}
  412. FUNCTION IUScriptOrder(script1: ScriptCode; script2: ScriptCode): INTEGER;
  413.     {$IFC NOT GENERATINGCFM}
  414.     INLINE $3F3C, $001E, $A9ED;
  415.     {$ENDC}
  416. FUNCTION IULangOrder(language1: LangCode; language2: LangCode): INTEGER;
  417.     {$IFC NOT GENERATINGCFM}
  418.     INLINE $3F3C, $0020, $A9ED;
  419.     {$ENDC}
  420. FUNCTION IUTextOrder(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER; aScript: ScriptCode; bScript: ScriptCode; aLang: LangCode; bLang: LangCode): INTEGER;
  421.     {$IFC NOT GENERATINGCFM}
  422.     INLINE $3F3C, $0022, $A9ED;
  423.     {$ENDC}
  424. PROCEDURE FindWord(textPtr: Ptr; textLength: INTEGER; offset: INTEGER; leadingEdge: BOOLEAN; breaks: BreakTablePtr; VAR offsets: OffsetTable);
  425.     {$IFC NOT GENERATINGCFM}
  426.     INLINE $2F3C, $8012, $001A, $A8B5;
  427.     {$ENDC}
  428. PROCEDURE NFindWord(textPtr: Ptr; textLength: INTEGER; offset: INTEGER; leadingEdge: BOOLEAN; nbreaks: NBreakTablePtr; VAR offsets: OffsetTable);
  429.     {$IFC NOT GENERATINGCFM}
  430.     INLINE $2F3C, $8012, $FFE2, $A8B5;
  431.     {$ENDC}
  432. PROCEDURE UprText(textPtr: Ptr; len: INTEGER);
  433.     {$IFC NOT GENERATINGCFM}
  434.     INLINE $301F, $205F, $A054;
  435.     {$ENDC}
  436. PROCEDURE LwrText(textPtr: Ptr; len: INTEGER);
  437.     {$IFC NOT GENERATINGCFM}
  438.     INLINE $301F, $205F, $A056;
  439.     {$ENDC}
  440. PROCEDURE LowerText(textPtr: Ptr; len: INTEGER);
  441.     {$IFC NOT GENERATINGCFM}
  442.     INLINE $301F, $205F, $A056;
  443.     {$ENDC}
  444. PROCEDURE StripText(textPtr: Ptr; len: INTEGER);
  445.     {$IFC NOT GENERATINGCFM}
  446.     INLINE $301F, $205F, $A256;
  447.     {$ENDC}
  448. PROCEDURE UpperText(textPtr: Ptr; len: INTEGER);
  449.     {$IFC NOT GENERATINGCFM}
  450.     INLINE $301F, $205F, $A456;
  451.     {$ENDC}
  452. PROCEDURE StripUpperText(textPtr: Ptr; len: INTEGER);
  453.     {$IFC NOT GENERATINGCFM}
  454.     INLINE $301F, $205F, $A656;
  455.     {$ENDC}
  456. FUNCTION IUCompPString(aStr: ConstStr255Param; bStr: ConstStr255Param; itl2Handle: Handle): INTEGER;
  457. FUNCTION IUEqualPString(aStr: ConstStr255Param; bStr: ConstStr255Param; itl2Handle: Handle): INTEGER;
  458. FUNCTION IUStringOrder(aStr: ConstStr255Param; bStr: ConstStr255Param; aScript: ScriptCode; bScript: ScriptCode; aLang: LangCode; bLang: LangCode): INTEGER;
  459. FUNCTION IUCompString(aStr: ConstStr255Param; bStr: ConstStr255Param): INTEGER;
  460. FUNCTION IUEqualString(aStr: ConstStr255Param; bStr: ConstStr255Param): INTEGER;
  461. {
  462.     The following provide direct function prototypes for new names for 68k
  463. }
  464. PROCEDURE DateString(dateTime: LONGINT; longFlag: ByteParameter; VAR result: Str255; intlHandle: Handle);
  465.     {$IFC NOT GENERATINGCFM}
  466.     INLINE $3F3C, $000E, $A9ED;
  467.     {$ENDC}
  468. PROCEDURE TimeString(dateTime: LONGINT; wantSeconds: BOOLEAN; VAR result: Str255; intlHandle: Handle);
  469.     {$IFC NOT GENERATINGCFM}
  470.     INLINE $3F3C, $0010, $A9ED;
  471.     {$ENDC}
  472. PROCEDURE LongDateString(VAR dateTime: LongDateTime; longFlag: ByteParameter; VAR result: Str255; intlHandle: Handle);
  473.     {$IFC NOT GENERATINGCFM}
  474.     INLINE $3F3C, $0014, $A9ED;
  475.     {$ENDC}
  476. PROCEDURE LongTimeString(VAR dateTime: LongDateTime; wantSeconds: BOOLEAN; VAR result: Str255; intlHandle: Handle);
  477.     {$IFC NOT GENERATINGCFM}
  478.     INLINE $3F3C, $0016, $A9ED;
  479.     {$ENDC}
  480. FUNCTION CompareString(aStr: ConstStr255Param; bStr: ConstStr255Param; itl2Handle: Handle): INTEGER;
  481. FUNCTION IdenticalString(aStr: ConstStr255Param; bStr: ConstStr255Param; itl2Handle: Handle): INTEGER;
  482. FUNCTION CompareText(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER; itl2Handle: Handle): INTEGER;
  483.     {$IFC NOT GENERATINGCFM}
  484.     INLINE $3F3C, $001A, $A9ED;
  485.     {$ENDC}
  486. FUNCTION IdenticalText(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER; itl2Handle: Handle): INTEGER;
  487.     {$IFC NOT GENERATINGCFM}
  488.     INLINE $3F3C, $001C, $A9ED;
  489.     {$ENDC}
  490. FUNCTION LanguageOrder(language1: LangCode; language2: LangCode): INTEGER;
  491.     {$IFC NOT GENERATINGCFM}
  492.     INLINE $3F3C, $0020, $A9ED;
  493.     {$ENDC}
  494. FUNCTION TextOrder(aPtr: UNIV Ptr; bPtr: UNIV Ptr; aLen: INTEGER; bLen: INTEGER; aScript: ScriptCode; bScript: ScriptCode; aLang: LangCode; bLang: LangCode): INTEGER;
  495.     {$IFC NOT GENERATINGCFM}
  496.     INLINE $3F3C, $0022, $A9ED;
  497.     {$ENDC}
  498. FUNCTION StringOrder(aStr: ConstStr255Param; bStr: ConstStr255Param; aScript: ScriptCode; bScript: ScriptCode; aLang: LangCode; bLang: LangCode): INTEGER;
  499. {$IFC NOT OLDROUTINELOCATIONS }
  500. PROCEDURE C2PStrProc(aStr: UNIV Ptr);
  501. FUNCTION C2PStr(cString: UNIV Ptr): StringPtr;
  502. PROCEDURE P2CStrProc(aStr: StringPtr);
  503. FUNCTION P2CStr(pString: StringPtr): Ptr;
  504. {$ENDC}
  505.  
  506. {$ALIGN RESET}
  507. {$POP}
  508.  
  509. {$SETC UsingIncludes := TextUtilsIncludes}
  510.  
  511. {$ENDC} {__TEXTUTILS__}
  512.  
  513. {$IFC NOT UsingIncludes}
  514.  END.
  515. {$ENDC}
  516.